home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / comm / mail / YAMGenesis.lha / YAMGenesis / GenesisOffline.yam next >
Text File  |  2001-03-01  |  1KB  |  57 lines
  1. /* GenesisOffline.yam - Go offline in Genesis
  2.  *
  3.  * $VER: GenesisOffline.yam 1.01 (1.3.01) © H. van der Ree <hivdree@uwnet.nl>
  4.  *
  5.  * This script is used after new mail is send or downloaded. It is importend
  6.  * that the option 'wait for ' is NOT ticked when the argument SENT is supplied,
  7.  * otherwise YAM will be locked!
  8.  */
  9.  
  10. OPTIONS RESULTS
  11.  
  12. PARSE ARG args
  13.  
  14. interface = GETVAR(GENESISINTERFACE, "GLOBAL")
  15. genesisport = "GENESIS"
  16. file = "YAM:Rexx/YahooGroupsScanner.rexx"
  17.  
  18. IF pos("SEND", upper(args)) = 1 THEN DO
  19.   CALL SETVAR(YAMSTARTED, "YES", "GLOBAL")
  20.   ADDRESS "YAM"
  21.   'MAILCHECK' MANUAL
  22.   EXIT 0
  23. END
  24.  
  25. IF pos("NEWS", upper(args)) = 1 THEN DO
  26.   ADDRESS COMMAND
  27.   'SYS:c/Yam2NN'
  28.   EXIT 0
  29. END
  30.  
  31. /* Don't go offline if one of these applications is running */
  32. ports = "IBROWSE VOYAGER AMFTP.1 AWebControlPort ATC_MAIN ATC_TRADER.1"
  33.  
  34. action = GETVAR(YAMSTART, "GLOBAL")
  35. IF action = "YES" THEN DO
  36.   DO i = 1 TO WORDS(ports)
  37.     IF SHOW('P', WORD(ports, i)) THEN CALL LastBits
  38.   END
  39.  
  40.   IF SHOW('P', genesisport) THEN DO
  41.     ADDRESS VALUE genesisport
  42.     ISONLINE interface
  43.     IF RC=1 THEN OFFLINE interface
  44.   END
  45. END
  46.  
  47. LastBits:
  48.  
  49. CALL DELETEVAR(YAMSTART, "GLOBAL")
  50. CALL DELETEVAR(YAMSTARTED, "GLOBAL")
  51.  
  52. IF EXISTS(file) THEN DO
  53.   ADDRESS REXX file
  54. END
  55.  
  56. EXIT 0
  57.